unit SiparisTurAyar;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, FormClass, ExtCtrls, Grids, Wwdbigrd, Wwdbgrid, XPMan, StdActns,
  ActnList, StdCtrls, wwdblook, Buttons;

type
  TfmSiparisTurAyar = class(TfmFormClass)
    grdListe: TwwDBGrid;
    Panel1: TPanel;
    lcUstGrup: TwwDBLookupCombo;
    lcGrup: TwwDBLookupCombo;
    bkapat: TBitBtn;
    procedure bkapatClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fmSiparisTurAyar: TfmSiparisTurAyar;

implementation
uses UnitySiparisListesi, data;
{$R *.dfm}

procedure TfmSiparisTurAyar.bkapatClick(Sender: TObject);
begin
  inherited;
  Close;
end;

procedure TfmSiparisTurAyar.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  inherited;
  Action := caFree;
  fmSiparisTurAyar := nil;
end;

end.

